home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 October / 1986-10.d64 / menu system (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  2.4 KB  |  64 lines
  1. 10 dim p$(20),l$(20),e$(20),s$(20),r$(20):q$=chr$(34):c$=","
  2. 20 m$="insert disk and press a key":gosub560
  3. 30 s1$="5 dimp$(20),l$(20),j$(20),s$(20),r$(20),e$(20)"
  4. 40 s2$="10 x=1:f$="+chr$(34)
  5. 50 s2$=s2$+"[147]select"
  6. 60 s3$="20 forn=1to20:e$(n)="+chr$(34)+",8"+chr$(34)
  7. 70 s3$=s3$+":next:open2,8,2,"+chr$(34)
  8. 80 s3$=s3$+"0:.m,s,r"+chr$(34)+":m$="+chr$(34)+",8,1"+chr$(34)+":q$=chr$(34)"
  9. 90 s4$="30 forn=1to20:input#2,p$(n),l$(n),j$(n),s$(n),r$(n):ifj$(n)="+chr$(34)
  10. 100 s4$=s4$+"1"+chr$(34)+"thene$(n)=m$"
  11. 110 s5$="40 next:close2:printf$:forn=1to20:printn;tab(4)
  12. 120 s5$[178]s5$[170]";p$(n):next:input"[170][199](34)[170]""[170][199](34)[170]";k"
  13. 130 s6$[178]"50 print"[170][199](34)[170]"loadload"[170][199](34)[170]";q$;p$(k);q$;e$(k):ifs$(k)>"
  14. 140 s6$[178]s6$[170][199](34)[170]"0"[170][199](34)[170]"thenprint"[170][199](34)[170]"sys"[170][199](34)
  15. 150 s6$[178]s6$[170]";s$(k):x=x+1"
  16. 160 s7$[178]"60 ifr$(k)="[170][199](34)[170]"y"[170][199](34)[170]"thenprint"[170][199](34)[170]"run"
  17. 170 s7$[178]s7$[170][199](34)[170]":x=x+1:ifs$(k)>"[170][199](34)[170]"0"[170][199](34)[170]"thenprint"
  18. 180 s7$[178]s7$[170][199](34)[170]"ononrun"[170][199](34)
  19. 190 s8$[178]"70 forz=0tox:b=631+z:pokeb,13:poke198,z:next:print"[170][199](34)[170]""
  20. 200 s8$[178]s8$[170][199](34)
  21. 210 [153]"load              menu system"
  22. 220 [153]"         f1 wait...create menu file"
  23. 230 [153]"         f2 wait...load menu file"
  24. 240 [153]"         f3 wait...edit menu file"
  25. 250 [153]"         f4 wait...save menu file"
  26. 260 [153]"         f5 wait...write menu driver"
  27. 270 [161]k$:[139]k$[178][199](133)[167][141]560:[137]390
  28. 280 [139]k$[178][199](137)[167]330
  29. 290 [139]k$[178][199](134)[167]390
  30. 300 [139]k$[178][199](138)[167]360
  31. 310 [139]k$[178][199](135)[167]600
  32. 320 [137]270
  33. 330 [141]570:[159]2,8,2,"0:.m,s,r"
  34. 340 [129]n[178]1[164]20:[132]2,p$(n),l$(n),e$(n),s$(n),r$(n):[130]
  35. 350 [160]2:[137]390
  36. 360 [141]570:[159]2,8,2,"@0:.m,s,w"
  37. 370 [129]n[178]1[164]20:[152]2,p$(n)c$l$(n)c$e$(n)c$s$(n)c$r$(n)c$:[130]
  38. 380 [160]2:[137]210
  39. 390 [153]"loadedit option":[129]n[178]1[164]9:[153]n;[200](p$(n),16):[130]
  40. 400 [153]"10 ";[200](p$(10),16);"onononononononononon":[129]n[178]11[164]20:[153][163]19)n;
  41. 410 [153][200](p$(n),16):[130]:[153]" ewait to edit or returnwait for menu"
  42. 420 [161]k$:[139]k$[178]""[167]420
  43. 430 [139]k$[178][199](13)[167]210
  44. 440 [139]k$[179][177]"e"[167]420
  45. 450 [153]"                                       on"
  46. 460 [133]"which digit to edit";n$:n[178][197](n$):[139]n[179]1[176]n[177]20[167]450
  47. 470 [133]"enter program name";p$(n):p$(n)[178][200](p$(n),35)
  48. 480 [133]"enter boot name";l$(n):l$(n)[178][200](l$(n),16)
  49. 490 [133]"enter  1 wait for 8,1closeor  0 wait for ,8";e$(n)
  50. 500 [133]"enter sys# or return";s$(n)
  51. 510 [139] s$(n)[178][199](13)[176]s$(n)[178]""[167]s$(n)[178]" ":[137]530
  52. 520 [139]s$(n)[178]""[167]s$(n)[178]" "
  53. 530 [133]"run command needed";r$(n):r$(n)[178][200]((r$(n)),1)
  54. 540 [139]r$(n)[179][177]"n"[175]r$(n)[179][177]"y"[167][153]"ononon":[137]530
  55. 550 [137]390
  56. 560 [129]n[178]1[164]20:p$(n)[178]" ":l$(n)[178]" ":e$(n)[178]" ":s$(n)[178]" ":r$(n)[178]" ":[130]:[142]
  57. 570 [153]"load";m$
  58. 580 [161]k$:[139]k$[178]""[167]580
  59. 590 [142]
  60. 600 [153]"loadnew"
  61. 610 [153]s1$:[153]s2$:[153]s3$:[153]s4$:[153]s5$:[153]s6$:[153]s7$:[153]s8$
  62. 620 [153]"save"[170][199](34)[170]"@0:menu"[170][199](34)[170]",8:sys64738"
  63. 630 [129]z[178]0[164]10:[151]631[170]z,13:[151]198,z[170]1:[130]:[128]
  64.